home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / MIN.LI < prev    next >
Text File  |  1993-12-23  |  189b  |  9 lines
  1. # min
  2. # e.g. min([1,2,3]) gives 1
  3.  
  4. min(x_) := if(islist(x),
  5.     block(min:=member(x,1), len:=length(x),
  6.     do( if(member(x,j) < min, min:=member(x,j)), j,2,len,1),
  7.     min,
  8.     local(len) ))
  9.